(byte-compile-file): Use whole file name for errors.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index be117d1184ffc38e6590318440cd64018275f158..d3fc441480ba8a72e0e8d92b8552d055df1b59a3 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1145,7 +1145,7 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling."
 
   (if byte-compile-verbose
       (message "Compiling %s..." filename))
-  (let ((byte-compile-current-file (file-name-nondirectory filename))
+  (let ((byte-compile-current-file filename)
        target-file input-buffer output-buffer)
     (save-excursion
       (setq input-buffer (get-buffer-create " *Compiler Input*"))